﻿Public Class Form1

    Dim Report As New Report

    Dim Tarih As New Date(2010, 12, 1)

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        OpenConnection("ssdmerkez", "ıstıhdam", "sa", "relayer")
        'OpenConnection("moda", "istihdam", "sa", "relayer")
    End Sub

    Sub InitializeReport(ByVal Title As String, ByVal TabloAdi As String)
        Document.Clear()
        Document.AddSection()
        Document.AddTitle("<b>" & Title)
        Document.AddTable("6l;1c;1c")
        Document.AddRow("<b><rs=2>ÇALIŞMA DAİRESİ MÜDÜRLÜĞÜ, LEFKOŞA BÖLGE AMİRLİĞİ/BÜROSU", "<b>TABLO NO.", "<b>" & TabloAdi)
        Document.AddRow("<b>AY/YIL", "<b>" & Tarih.ToString("MM/yyyy"))
    End Sub

    Private Sub MnuTablo2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTablo2.Click
        Dim Rs = OpenSQL("exec tablo2 @tarih", Tarih)
        InitializeReport("KAYITLI AKTİF İŞSİZLERİN MESLEK GRUPLARI VE CİNSİYETE GÖRE AY İÇİNDEKİ HAREKETLİLİĞİ/nGENEL GÖRÜNÜM TABLOSU", "2")
        Document.AddTable("2;8l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
        Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
        Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
        Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
        Do Until Rs.EOF
            If Len(Rs("kod")) = 1 Then
                Document.AddRow("<cs=2><b>" & Rs("adi"),
                    "<b>" & Rs("gat"), "<b>" & Rs("gae"), "<b>" & Rs("gak"), "<b>" & Rs("ait"), "<b>" & Rs("aie"), "<b>" & Rs("aik"),
                    "<b>" & 0, "<b>" & 0, "<b>" & 0,
                    "<b>" & Rs("kdt"), "<b>" & Rs("kde"), "<b>" & Rs("kdk"), "<b>" & Rs("ast"), "<b>" & Rs("ase"), "<b>" & Rs("ask"))
            Else
                Document.AddRow(Rs("kod"), Rs("adi"),
                    Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
                    0, 0, 0,
                    Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
            End If
            Rs.MoveNext()
        Loop
        Document.AddRow("<b><cs=2>GENEL TOPLAM",
            "<b>" & Rs.Sum("gat", "len(kod)>1"), "<b>" & Rs.Sum("gae", "len(kod)>1"), "<b>" & Rs.Sum("gak", "len(kod)>1"), "<b>" & Rs.Sum("ait", "len(kod)>1"), "<b>" & Rs.Sum("aie", "len(kod)>1"), "<b>" & Rs.Sum("aik", "len(kod)>1"),
            "<b>" & 0, "<b>" & 0, "<b>" & 0,
            "<b>" & Rs.Sum("kdt", "len(kod)>1"), "<b>" & Rs.Sum("kde", "len(kod)>1"), "<b>" & Rs.Sum("kdk", "len(kod)>1"), "<b>" & Rs.Sum("ast", "len(kod)>1"), "<b>" & Rs.Sum("ase", "len(kod)>1"), "<b>" & Rs.Sum("ask", "len(kod)>1"))
        Document.Display()
    End Sub

    Private Sub MnuTablo2b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTablo2b.Click
        Dim Rs = OpenSQL("exec tablo2b @tarih", Tarih)
        InitializeReport("<b>KAYITLI İŞSİZ FAKÜLTE VE YÜKSEK OKUL MEZUNLARININ GENEL GÖRÜNÜM TABLOSU/n(Mezuniyet Bölümlerine ve Cinsiyete Göre)", "2b")
        Document.AddTable("1;9l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
        Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
        Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
        Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
        Do Until Rs.EOF
            Document.AddRow("<b>" & Rs("kod"), "<b>" & Rs("adi"),
                Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
                0, 0, 0,
                Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
            Rs.MoveNext()
        Loop
        Document.AddRow("<b><cs=2>GENEL TOPLAM",
            "<b>" & Rs.Sum("gat"), "<b>" & Rs.Sum("gae"), "<b>" & Rs.Sum("gak"), "<b>" & Rs.Sum("ait"), "<b>" & Rs.Sum("aie"), "<b>" & Rs.Sum("aik"),
            "<b>" & 0, "<b>" & 0, "<b>" & 0,
            "<b>" & Rs.Sum("kdt"), "<b>" & Rs.Sum("kde"), "<b>" & Rs.Sum("kdk"), "<b>" & Rs.Sum("ast"), "<b>" & Rs.Sum("ase"), "<b>" & Rs.Sum("ask"))
        Document.Display()
    End Sub

    Private Sub MnuTablo3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTablo3.Click
        Dim Rs = OpenSQL("exec tablo3 @tarih", Tarih)
        InitializeReport("KAYITLI AKTİF İŞSİZLERİN BEKLEME SÜRELERİNE GÖRE DÖKÜMÜ/n(Ana Meslek Grupları ve Cinsiyete Göre)", "3")
        Document.AddTable("1;10l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
        Document.AddHeader("<b><rs=2>Kod", "<b><rs=2>Meslek Grubu", "<b><cs=3><c>1 - 15 Gün", "<b><cs=3><c>16 - 30 Gün", "<b><cs=3><c>31 - 60 Gün", "<b><cs=3><c>61'den Fazla", "<b><cs=3><c>TOPLAM")
        Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
        Do Until Rs.EOF
            Document.AddRow("<b>" & Rs("kod"), "<b>" & Rs("adi"),
                Rs("t15"), Rs("e15"), Rs("k15"), Rs("t30"), Rs("e30"), Rs("k30"),
                Rs("t60"), Rs("e60"), Rs("k60"), Rs("t61"), Rs("e61"), Rs("k61"),
                Rs("t"), Rs("et"), Rs("kt"))
            Rs.MoveNext()
        Loop
        Document.AddRow("<b><cs=2>GENEL TOPLAM",
            "<b>" & Rs.Sum("t15"), "<b>" & Rs.Sum("e15"), "<b>" & Rs.Sum("k15"), "<b>" & Rs.Sum("t30"), "<b>" & Rs.Sum("e30"), "<b>" & Rs.Sum("k30"),
            "<b>" & Rs.Sum("t60"), "<b>" & Rs.Sum("e60"), "<b>" & Rs.Sum("k60"), "<b>" & Rs.Sum("t61"), "<b>" & Rs.Sum("e61"), "<b>" & Rs.Sum("k61"),
            "<b>" & Rs.Sum("t"), "<b>" & Rs.Sum("et"), "<b>" & Rs.Sum("kt"))
        Document.Display()
    End Sub

    Private Sub MnuTablo4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTablo4.Click
        Dim Rs = OpenSQL("exec tablo4 @tarih", Tarih)
        InitializeReport("AY SONU İTİBARIYLE KAYITLI AKTİF İŞSİZLERİN YAŞ GRUPLARINA GÖRE DÖKÜMÜ/n(Ana Meslek Grupları ve Cinsiyete Göre)", "4")
        Document.AddTable("1;10l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
        Document.AddHeader("<b><rs=2>Kod", "<b><rs=2>Meslek Grubu", "<b><cs=3><c>19 Yaşa Kadar", "<b><cs=3><c>20 - 29 Yaş", "<b><cs=3><c>30 - 39 Yaş", "<b><cs=3><c>40 - 49 Yaş", "<b><cs=3><c>50 - 59 Yaş", "<b><cs=3><c>60 Yaş ve Yukarı", "<b><cs=3><c>TOPLAM")
        Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
        Do Until Rs.EOF
            Document.AddRow("<b>" & Rs("kod"), "<b>" & Rs("adi"),
                Rs("t19"), Rs("e19"), Rs("k19"), Rs("t29"), Rs("e29"), Rs("k29"),
                Rs("t39"), Rs("e39"), Rs("k39"), Rs("t49"), Rs("e49"), Rs("k49"),
                Rs("t59"), Rs("e59"), Rs("k59"), Rs("t99"), Rs("e99"), Rs("k99"),
                Rs("t"), Rs("et"), Rs("kt"))
            Rs.MoveNext()
        Loop
        Document.AddRow("<b><cs=2>GENEL TOPLAM",
            "<b>" & Rs.Sum("t19"), "<b>" & Rs.Sum("e19"), "<b>" & Rs.Sum("k19"), "<b>" & Rs.Sum("t29"), "<b>" & Rs.Sum("e29"), "<b>" & Rs.Sum("k29"),
            "<b>" & Rs.Sum("t39"), "<b>" & Rs.Sum("e39"), "<b>" & Rs.Sum("k39"), "<b>" & Rs.Sum("t49"), "<b>" & Rs.Sum("e49"), "<b>" & Rs.Sum("k49"),
            "<b>" & Rs.Sum("t59"), "<b>" & Rs.Sum("e59"), "<b>" & Rs.Sum("k59"), "<b>" & Rs.Sum("t99"), "<b>" & Rs.Sum("e99"), "<b>" & Rs.Sum("k99"),
            "<b>" & Rs.Sum("t"), "<b>" & Rs.Sum("et"), "<b>" & Rs.Sum("kt"))
        Document.Display()
    End Sub

    Private Sub MnuTablo5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTablo5.Click
        Dim Rs = OpenSQL("exec tablo5 @tarih", Tarih)
        InitializeReport("KAYITLI İŞSİZLERİN GENEL GÖRÜNÜM TABLOSU/n(Öğrenim Durumu ve Cinsiyete Göre)", "5")
        Document.AddTable("1;9l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
        Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
        Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
        Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
        Do Until Rs.EOF
            Document.AddRow("<b>" & Rs("sira"), "<b>" & Rs("adi"),
                Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
                0, 0, 0,
                Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
            Rs.MoveNext()
        Loop
        Document.AddRow("<b><cs=2>GENEL TOPLAM",
            "<b>" & Rs.Sum("gat"), "<b>" & Rs.Sum("gae"), "<b>" & Rs.Sum("gak"), "<b>" & Rs.Sum("ait"), "<b>" & Rs.Sum("aie"), "<b>" & Rs.Sum("aik"),
            "<b>" & 0, "<b>" & 0, "<b>" & 0,
            "<b>" & Rs.Sum("kdt"), "<b>" & Rs.Sum("kde"), "<b>" & Rs.Sum("kdk"), "<b>" & Rs.Sum("ast"), "<b>" & Rs.Sum("ase"), "<b>" & Rs.Sum("ask"))
        Document.Display()
    End Sub

    Private Sub MnuTablo6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTablo6.Click
        Dim Rs = OpenSQL("exec tablo6 @tarih", Tarih)
        InitializeReport("AY SONU İTİBARIYLA KAYITLI AKTİF İŞSİZLERİN ÖĞRENİM DURUMUNA GÖRE DAĞILIMI/n(Ana Meslek Grupları ve Cinsiyete Göre)", "6")
        Document.AddTable("1;6l;1c;2n;2n;2n;2n;2n;2n;2n;2n;2n;2n;2n")
        Document.AddHeader("<b>Kod", "<cs=2><b>Meslek Grubu", "<b><c>Okur-Yazar Değil", "<b><c>Diplomasız Okur-Yazar", "<b><c>İlkokul Mezunu", "<b><c>Ortaokul Mezunu", "<b><c>Lise-Klasik Kolej Mezunu", "<b><c>Meslek Lisesi Mezunu", "<b><c>Pratik Sanat Ok. Mez.", "<b><c>Meslek Yüksek Ok. Mez.", "<b><c>Fakülte-Akademi Mezunu", "<b><c>Yüksek Lisans Mezunu", "<b><c>TOPLAM")
        Do Until Rs.EOF
            Document.AddRow("<b><rs=2>" & Rs("kod"), "<b><rs=2>" & Rs("adi"), "<b>E", Rs("ae"), Rs("be"), Rs("ce"), Rs("de"), Rs("ee"), Rs("fe"), Rs("ge"), Rs("ıe"), Rs("ie"), Rs("je"), Rs("te"))
            Document.AddRow("<b>K", Rs("ak"), Rs("bk"), Rs("ck"), Rs("dk"), Rs("ek"), Rs("fk"), Rs("gk"), Rs("ık"), Rs("ik"), Rs("jk"), Rs("tk"))
            Rs.MoveNext()
        Loop
        Document.AddRow("<b><rs=2><cs=2>GENEL TOPLAM", "<b>E", "<b>" & Rs.Sum("ae"), "<b>" & Rs.Sum("be"), "<b>" & Rs.Sum("ce"), "<b>" & Rs.Sum("de"), "<b>" & Rs.Sum("ee"), "<b>" & Rs.Sum("fe"), "<b>" & Rs.Sum("ge"), "<b>" & Rs.Sum("ıe"), "<b>" & Rs.Sum("ie"), "<b>" & Rs.Sum("je"), "<b>" & Rs.Sum("te"))
        Document.AddRow("<b>K", "<b>" & Rs.Sum("ak"), "<b>" & Rs.Sum("bk"), "<b>" & Rs.Sum("ck"), "<b>" & Rs.Sum("dk"), "<b>" & Rs.Sum("ek"), "<b>" & Rs.Sum("fk"), "<b>" & Rs.Sum("gk"), "<b>" & Rs.Sum("ık"), "<b>" & Rs.Sum("ik"), "<b>" & Rs.Sum("jk"), "<b>" & Rs.Sum("tk"))
        Document.Display()
    End Sub

    Private Sub MnuTablo7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTablo7.Click
        Dim Rs = OpenSQL("exec tablo7 @tarih", Tarih)
        InitializeReport("KAYITLI İŞSİZ FAKÜLTE VE YÜKSEK OKUL MEZUNLARININ GENEL GÖRÜNÜM TABLOSU/n(Ekonomik Faaliyetler Ana Gruplarına ve Cinsiyete Göre)", "7")
        Document.AddTable("2;8l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
        Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
        Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
        Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
        Do Until Rs.EOF
            If Len(Rs("kod")) = 1 Then
                Document.AddRow("<cs=2><b>" & Rs("adi"),
                    "<b>" & Rs("gat"), "<b>" & Rs("gae"), "<b>" & Rs("gak"), "<b>" & Rs("ait"), "<b>" & Rs("aie"), "<b>" & Rs("aik"),
                    "<b>" & 0, "<b>" & 0, "<b>" & 0,
                    "<b>" & Rs("kdt"), "<b>" & Rs("kde"), "<b>" & Rs("kdk"), "<b>" & Rs("ast"), "<b>" & Rs("ase"), "<b>" & Rs("ask"))
            Else
                Document.AddRow(Rs("kod"), Rs("adi"),
                    Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
                    0, 0, 0,
                    Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
            End If
            Rs.MoveNext()
        Loop
        Document.AddRow("<b><cs=2>GENEL TOPLAM",
            "<b>" & Rs.Sum("gat", "len(kod)>1"), "<b>" & Rs.Sum("gae", "len(kod)>1"), "<b>" & Rs.Sum("gak", "len(kod)>1"), "<b>" & Rs.Sum("ait", "len(kod)>1"), "<b>" & Rs.Sum("aie", "len(kod)>1"), "<b>" & Rs.Sum("aik", "len(kod)>1"),
            "<b>" & 0, "<b>" & 0, "<b>" & 0,
            "<b>" & Rs.Sum("kdt", "len(kod)>1"), "<b>" & Rs.Sum("kde", "len(kod)>1"), "<b>" & Rs.Sum("kdk", "len(kod)>1"), "<b>" & Rs.Sum("ast", "len(kod)>1"), "<b>" & Rs.Sum("ase", "len(kod)>1"), "<b>" & Rs.Sum("ask", "len(kod)>1"))
        Document.Display()
    End Sub

    Private Sub MnuTablo8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTablo8.Click
        Dim Rs = OpenSQL("exec tablo8 @tarih", Tarih)
        InitializeReport("KAYITLI AKTİF LİSE MEZUNU İŞSİZLERİN GENEL GÖRÜNÜM TABLOSU/n(Mezun Oldukları Okul ve Cinsiyete Göre)", "8")
        Document.AddTable("1;9l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
        Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
        Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
        Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
        Do Until Rs.EOF
            Document.AddRow("<b>" & Rs("altsira"), "<b>" & Rs("adi"),
                Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
                0, 0, 0,
                Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
            Rs.MoveNext()
        Loop
        Document.AddRow("<b><cs=2>GENEL TOPLAM",
            "<b>" & Rs.Sum("gat"), "<b>" & Rs.Sum("gae"), "<b>" & Rs.Sum("gak"), "<b>" & Rs.Sum("ait"), "<b>" & Rs.Sum("aie"), "<b>" & Rs.Sum("aik"),
            "<b>" & 0, "<b>" & 0, "<b>" & 0,
            "<b>" & Rs.Sum("kdt"), "<b>" & Rs.Sum("kde"), "<b>" & Rs.Sum("kdk"), "<b>" & Rs.Sum("ast"), "<b>" & Rs.Sum("ase"), "<b>" & Rs.Sum("ask"))
        Document.Display()
    End Sub

    Private Sub MnuTablo14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTablo14.Click
        Dim Rs = OpenSQL("exec tablo14 @tarih", Tarih)
        InitializeReport("İŞSİZLİK GENEL GÖRÜNÜM TABLOSU/n(Meslek ve Ekonomik Faaliyet Ana Grupları ve Cinsiyete Göre)", "14")
        Document.AddTable("1;5l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
        Document.AddHeader("<b><rs=2>Kod", "<b><rs=2>Ekonomik Faaliyetler Ana Grupları", "<b><cs=2><c>Toplam",
                           "<b><cs=2><c>Yasa Yap., Üst Düzey Yön. ve Müd.", "<b><cs=2><c>Profesyonel Meslek Mensupları",
                           "<b><cs=2><c>Yardımcı Profesyonel Meslek Mensupları", "<b><cs=2><c>Büro ve Müşteri Hizm. Çal.",
                           "<b><cs=2><c>Hizmet ve Satış Elemanları", "<b><cs=2><c>Tarım, Hay. Orman. ve Su Ürün. Çalışanları",
                           "<b><cs=2><c>Sanatkarlar ve İlgili İşlerde Çalışanlar", "<b><cs=2><c>Tesis ve Makine Opr. ve Montaj.",
                           "<b><cs=2><c>Nitelik Gerektirmeyen İşlerde Çalışanlar", "<b><cs=2><c>Tanımlanamayan")
        Document.AddHeader("<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K")
        Do Until Rs.EOF
            Document.AddRow("<b>" & Rs("kod"), "<b>" & Rs("adi"), Rs("et"), Rs("kt"),
                Rs("e1"), Rs("k1"), Rs("e2"), Rs("k2"), Rs("e3"), Rs("k3"), Rs("e4"), Rs("k4"),
                Rs("e5"), Rs("k5"), Rs("e6"), Rs("k6"), Rs("e7"), Rs("k7"), Rs("e8"), Rs("k8"),
                Rs("e9"), Rs("k9"), Rs("e0"), Rs("k0"))
            Rs.MoveNext()
        Loop
        Document.AddRow("<b><cs=2>GENEL TOPLAM", "<b>" & Rs.Sum("et"), "<b>" & Rs.Sum("kt"),
                "<b>" & Rs.Sum("e1"), "<b>" & Rs.Sum("k1"), "<b>" & Rs.Sum("e2"), "<b>" & Rs.Sum("k2"), "<b>" & Rs.Sum("e3"), "<b>" & Rs.Sum("k3"), "<b>" & Rs.Sum("e4"), "<b>" & Rs.Sum("k4"),
                "<b>" & Rs.Sum("e5"), "<b>" & Rs.Sum("k5"), "<b>" & Rs.Sum("e6"), "<b>" & Rs.Sum("k6"), "<b>" & Rs.Sum("e7"), "<b>" & Rs.Sum("k7"), "<b>" & Rs.Sum("e8"), "<b>" & Rs.Sum("k8"),
                "<b>" & Rs.Sum("e9"), "<b>" & Rs.Sum("k9"), "<b>" & Rs.Sum("e0"), "<b>" & Rs.Sum("k0"))
        Document.Display()
    End Sub

    Private Sub MnuTarih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTarih.Click

    End Sub

    Private Sub MnuTarih_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MnuTarih.DropDownItemClicked
        Tarih = e.ClickedItem.Text & "/01"
    End Sub

End Class
